home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / asmbler.arc / FILUQQ.INC < prev    next >
Encoding:
Text File  |  1988-11-20  |  1.5 KB  |  42 lines
  1. {  IBM Personal Computer Pascal file system unit    }
  2. {    Version 1.00 (C) Copyright 1981 by IBM Corp    }
  3.  
  4. INTERFACE; UNIT
  5. FILUQQ (FNSUQQ, INPUQQ, OUTUQQ, 
  6.         INIUQQ, OPNUQQ, CLSUQQ, CLDUQQ, ENDUQQ,
  7.         GETUQQ, PUTUQQ, PERUQQ, PCCUQQ, SEKUQQ,
  8.         GTYUQQ, PLYUQQ, PTYUQQ, GFNUQQ, PFNUQQ,
  9.         BUFUQQ, NEWUQQ, TFNUQQ, PPMUQQ);
  10. USES FILKQQ;  {Must have the correct FCBFQQ declaration}
  11.  
  12. TYPE
  13.   ERRORET = WORD;             {return code, error if non-zero}
  14.  
  15. VAR
  16.   FNSUQQ: SET OF CHAR;        {allowed chars in a filename}
  17.   INPUQQ, OUTUQQ: STRING (8); {filenames for user terminal}
  18.  
  19. PROCEDURE INIUQQ;
  20. FUNCTION  OPNUQQ (VAR F: FCBFQQ): ERRORET;
  21. FUNCTION  CLSUQQ (VAR F: FCBFQQ): ERRORET;
  22. FUNCTION  CLDUQQ (VAR F: FCBFQQ): ERRORET;
  23. PROCEDURE ENDUQQ;
  24. FUNCTION  GETUQQ (VAR F: FCBFQQ; LEN: WORD; DST: ADSMEM): ERRORET;
  25. FUNCTION  PUTUQQ (VAR F: FCBFQQ; LEN: WORD; SRC: ADSMEM): ERRORET;
  26. FUNCTION  PERUQQ (VAR F: FCBFQQ): ERRORET;
  27. FUNCTION  PCCUQQ (VAR F: FCBFQQ; CH: CHAR): ERRORET;
  28. FUNCTION  SEKUQQ (VAR F: FCBFQQ; LREC, HREC: WORD): ERRORET;
  29. FUNCTION  GTYUQQ (LEN: WORD; DST: ADSMEM): WORD;
  30. PROCEDURE PLYUQQ;
  31. PROCEDURE PTYUQQ (LEN: WORD; SRC: ADSMEM);
  32. FUNCTION  GFNUQQ (VAR F: FCBFQQ; LEN: WORD; DST: ADSMEM): WORD;
  33. PROCEDURE PFNUQQ (VAR F: FCBFQQ; LEN: WORD; SRC: ADSMEM);
  34.  
  35. PROCEDURE BUFUQQ (VAR F: FCBFQQ);
  36. PROCEDURE NEWUQQ (VAR F: FCBFQQ);
  37. PROCEDURE TFNUQQ (VAR F: FCBFQQ);
  38. FUNCTION  PPMUQQ (UNUSED1: WORD; UNUSED2: ADRMEM; VAR DST: LSTRING): ERRORET;
  39.  
  40. END;
  41.  
  42.